home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / rbtab.gs < prev    next >
Encoding:
Text File  |  1998-04-23  |  417 b   |  33 lines
  1. function rbtab(args)
  2.   i=1
  3.   red=255
  4.   blue=255
  5.   g=0
  6.   glim=255
  7.  
  8.   inc.1=0
  9.   inc.2=128
  10.   inc.3=16
  11.   inc.4=16
  12.   inc.5=16
  13.   inc.6=16
  14.   inc.7=16
  15.   inc.8=16
  16.  
  17.   while(i<=8)
  18.     g=g+inc.i
  19.     if(g>glim);g=glim;endif
  20.     cn1=20+i
  21.     cn2=37-i
  22.     r=255
  23.     b=255
  24.     'set rgb 'cn1' 'r' 'g' 'g
  25.     'set rgb 'cn2' 'g' 'g' 'b
  26.  
  27. *    say 'set rgb 'cn1' 'r' 'g' 'g
  28. *    say 'set rgb 'cn2' 'g' 'g' 'b
  29.    i=i+1
  30.   endwhile
  31. return
  32.  
  33.